home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / pollon98 / pollonde.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-08-11  |  2.2 KB  |  65 lines
  1. VERSION 5.00
  2. Object = "{6ACFE5D8-1993-11D2-BC4A-464B01000000}#2.0#0"; "Pollon98.ocx"
  3. Begin VB.Form pollondemo 
  4.    Caption         =   "demo - POLLON 98"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin Pollon98_SoftWareKey.Pollon Pollon1 
  14.       Left            =   120
  15.       Top             =   120
  16.       _ExtentX        =   3413
  17.       _ExtentY        =   2143
  18.    End
  19.    Begin VB.CommandButton Command1 
  20.       Caption         =   "Inizialize"
  21.       Height          =   375
  22.       Left            =   1200
  23.       TabIndex        =   0
  24.       Top             =   2760
  25.       Width           =   2175
  26.    End
  27.    Begin VB.Label Label2 
  28.       Caption         =   "Before inizializzation this pollon98 return only checkWrong because there no stored information about this PC"
  29.       Height          =   1215
  30.       Left            =   2280
  31.       TabIndex        =   2
  32.       Top             =   120
  33.       Width           =   2295
  34.    End
  35.    Begin VB.Label Label1 
  36.       Caption         =   "After Inizialization this software will only run on this machine"
  37.       Height          =   255
  38.       Left            =   120
  39.       TabIndex        =   1
  40.       Top             =   2400
  41.       Width           =   4455
  42.    End
  43. Attribute VB_Name = "pollondemo"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Private Sub Command1_Click()
  49. 'this is the procedure that collect and store informations
  50. Pollon1.InizializePC
  51. End Sub
  52. Private Sub Form_Load()
  53. 'If there is no stored information .check value is false
  54. 'you can evaluete .chek here using an if like
  55. ' if pollon1.check = false then msgbox ("You are not allowed")
  56. Pollon1.Check
  57. 'also you can use the CheckOK and CheckWrong Event
  58. End Sub
  59. Private Sub Pollon1_CheckOK()
  60. MsgBox ("You are allowed to enter")
  61. End Sub
  62. Private Sub Pollon1_CheckWrong()
  63. MsgBox ("You are not allowed to enter...."), vbCritical, ("ERROR!!! Protection Wrong")
  64. End Sub
  65.